home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / SourceCode / Palettes / HotShape / HotPath.psw next >
Text File  |  1995-06-12  |  892b  |  35 lines
  1. defineps setHotPaths()
  2.     /ellipse {    
  3.         0.5 0.5 0.5 0 360 arc} def 
  4.     /rectangle {
  5.         0.001 0.001 moveto 0.999 0.001 lineto 0.999 0.999 lineto 
  6.         0.001 0.999 lineto 0.001 0.001 lineto closepath} def
  7.     /diamond {0.999 0.5 moveto 0.5 0.999 lineto 0.001 0.5 lineto 
  8.         0.5 0.001 lineto 0.999 0.5 lineto closepath} def
  9.     /star { 0.42 0.57 moveto
  10.             5 {-0.3 0 rlineto
  11.                 324 rotate
  12.                 0.3 0 rlineto
  13.                 108 rotate }repeat
  14.                 closepath }def
  15.     /triangle { 0.08 0.15 moveto
  16.                 3 {0.85 0 rlineto
  17.                     120 rotate} repeat 
  18.                     closepath }def
  19.     /octagon { 0.31 0.05 moveto
  20.                 8 {0.38 0 rlineto
  21.                     45 rotate} repeat 
  22.                     closepath }def
  23. endps
  24.  
  25. defineps drawHotPath(char *hotPathName; boolean visible)
  26.     visible {0 setgray 1.0 setalpha 0 setlinewidth hotPathName stroke}if
  27. endps    
  28.  
  29. defineps inHotRegion(char *hotPathName; float xCoord, yCoord | boolean *flag)
  30.     xCoord yCoord hotPathName infill
  31.     flag
  32. endps    
  33.  
  34.  
  35.